home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WheelMouse Lines.xpl < prev    next >
Text File  |  2000-11-12  |  1KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\Mouse\Wheelmouse"
  5. "NAME"="Wheelmouse Scroll"
  6. "VERSION"="1.23"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Lines"
  9. "DESCRIPTION 1"="Use this setting to specify how many lines a window should scroll if you use the wheel on your mouse."
  10. "DESCRIPTION 2"="To stop scrolling with the wheel, use "0"."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"=" "
  15.  
  16.  
  17. sP="HKCU\Control Panel\Desktop\WheelScrollLines"
  18.  
  19. 'Called when the Plugin is started
  20. SUB Plugin_Initialize
  21.  i=RegReadValue(sP)
  22.  if IsEmpty(i) then
  23.   SetUIElement 1,""
  24.  else
  25.   SetUIElement 1,i
  26.  end if
  27.  
  28. END SUB
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. SUB Plugin_CheckData(ElementIndex)
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  
  38.  if len(s)<>0 then 
  39.   Call RegWriteValue(sP,s,1)
  40.   Call Restart
  41.  else
  42.   Call MsgError("Please supply a number!")
  43.  end if
  44.  
  45. END SUB
  46.  
  47. 'Called when the Plugin is about to be removed from memory
  48. SUB Plugin_Terminate
  49. END SUB
  50.